home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 91xx / 9112a.d64 / main v2.0 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  8KB  |  279 lines
  1. 1 POKE53280,0:POKE53281,0
  2. 2 RA = 5
  3. 5 NU= 0
  4. 6 FA = 1000.82836
  5. 10 REM ****************************************
  6. 20 REM * MAIN V1.1  (C) BY MARKT UND TECHNIK  *
  7. 30 REM * 1991                                 *
  8. 40 REM * WRITTEN BY HGRB                      *
  9. 50 REM * 1991                                 *
  10. 60 REM ****************************************
  11. 70 LW=8: REM LAUFWERKSNUMMER
  12. 80 IFA=0THENA=1:LOAD"MESSZYKLUS",LW,1
  13. 81 IFA=1THENA=2:LOAD"MESSZYKLUS2",LW,1
  14. 85 PRINT"[147]MOECHTEN SIE DEN A/D-WANDLER EICHEN?"
  15. 86 PRINT"(J/N)"
  16. 87 GETA$:IFA$=""THEN87
  17. 88 IFA$="J"THEN1000
  18. 89 IFA$<>"N"THEN86
  19. 90 Z%(1)=2:Z%(2)=2:Z%(3)=2:Z%(4)=10:Z%(5)=10:Z%(6)=10
  20. 100 S%(1)=1:S%(2)=15:S%(3)=29:S%(4)=1:S%(5)=15:S%(6)=29
  21. 110 L$="          "
  22. 120 PRINT"[147]            64'ER MESSLABOR             "
  23. 130 DIMMA$(6,4)
  24. 140 OPEN1,LW,15,"I"
  25. 150 OPEN2,LW,2,"KONFIGMES,S,R"
  26. 160 INPUT#2,N :REM ANZAHL INSTALLIERTER MODULE
  27. 170 FOR M = 1 TO N :REM MODULDATEN EINLESEN
  28. 180 :  INPUT#2,G$(M) :REM ZU MESSENDE GROESSE
  29. 190 :  INPUT#2,E$(M) :REM EINHEIT DES MESSWERTS
  30. 200 :  INPUT#2,B(M) :REM BILDSCHIRMPOSITION
  31. 210 :  INPUT#2,A(M)  :REM ARCHIVIERUNG?
  32. 220 :  INPUT#2,N$(M) :REM ARCHIVIERUNGSDATEI
  33. 230 NEXT M :REM NAECHSTES MODUL
  34. 231 CLOSE2
  35. 232 CLOSE1
  36. 240 REM *************************************
  37. 250 REM * START DER MESSROUTINEN            *
  38. 260 REM *************************************
  39. 270 REM INITIALISIERUNG
  40. 280 GOSUB60000 : REM HIER KANN FUNKUHRROUTINE EINGEBAUT WERDEN
  41. 285 PRINT"[147]            64'ER MESSLABOR             "
  42. 290 FOR I = 1 TO 6
  43. 300 :  MA$(I,0) = "MODUL "+STR$(I)+"  "
  44. 310 :  MA$(I,1) = "000000[146]"
  45. 320 :  MA$(I,2) = "UNIT[146]"
  46. 330 :  MA$(I,3) = "[158]          [146]"
  47. 340 :  M  = I
  48. 345 :  BS = I
  49. 350 :  GOSUB 570: REM MASKE AUFBAUEN
  50. 360 NEXT I
  51. 370 PRINT"";
  52. 380 FORA=1TO8
  53. 390 :  PRINT"[165]"SPC(11)"[167]"SPC(13)"[167]"SPC(12)"[167]";
  54. 400 NEXT A
  55. 410 PRINT"[207][183][183][183][183][183][183][183][183][183][183][183][208][183][183][183][183][183][183][183][183][183][183][183][183][183][208][183][183][183][183][183][183][183][183][183][183][183][183][208]";
  56. 420 FORA=1TO8
  57. 430 :  PRINT"[165]"SPC(11)"[167]"SPC(13)"[167]"SPC(12)"[167]";
  58. 440 NEXT A
  59. 450 PRINT"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]";
  60. 455 OPEN1,8,15,"I"
  61. 460 FORM=1TON
  62. 470 :  BS=M
  63. 480 :  ON M GOSUB 10000,13000,11000,12000,10000,10000
  64. 490 MA$(M,0)=""+G$(M)+LEFT$(L$,10-LEN(G$(M)))
  65. 500 MA$(M,2)=""+E$(M)+LEFT$(L$,4-LEN(E$(M)))
  66. 510 :  MA$(M,1)=""+RIGHT$(STR$(AN),7)+LEFT$(L$,6-LEN(STR$(AN)))
  67. 520 :  BS =B(M)
  68. 530 :  GOSUB570
  69. 535 GOSUB 61000
  70. 536 IF A(BS) = -1 THEN GOSUB 59000: REM ARCHIVIERUNG?
  71. 540 NEXT M
  72. 550 GOTO460
  73. 560 END
  74. 570 REM ************************************
  75. 580 REM *BILDSCHIRMAUSGABE ANZEIGEFELD     *
  76. 590 REM *UEBERGABEWERT: NUMMER DER         *
  77. 600 REM *AUSGABEPOSITION IN BS             *
  78. 610 REM ************************************
  79. 620 PRINT"";: REM AUF HOMEPOSITION
  80. 630 FOR A = 0 TO Z%(BS) : REM ZEILEN-
  81. 640 :  PRINT"";
  82. 650 NEXT A
  83. 660 FOR A = 1 TO S%(BS) : REM UND SPALTEN-
  84. 670 :  PRINT""; :REM POSITION
  85. 680 NEXT A : REM EINSTELLEN
  86. 690 PRINT ""MA$(M,0); : REM AUSGABE MESSGROESSE
  87. 700 PRINT"[157][157][157][157][157][157][157][157][157][157]";MA$(M,1);MA$(M,2); : REM AUSGABE WERT UND EINHEIT
  88. 710 PRINT"[157][157][157][157][157][157][157][157][157][157]";MA$(M,3);
  89. 720 RETURN
  90. 1000 PRINT"[147]EICHUNG DES ANALOG/DIGITALWANDLERS"
  91. 1010 PRINT"SCHLIESSEN SIE DEN EINGANG DES"
  92. 1020 PRINT"A/D-WANDLERS MIT EINER DRAHTBRUECKE"
  93. 1030 PRINT"KURZ (ENTSPRICHT 0 VOLT).
  94. 1040 [153]"DRUECKEN SIE DANN EINE TASTE!"
  95. 1050 [161]A$
  96. 1060 [139]A$[178]""[167]1050
  97. 1070 BS[178]1
  98. 1080 [129]A[178]1[164]10
  99. 1090 :  [141]5000
  100. 1100 :  N[178]N[170]FZ
  101. 1110 [130]A
  102. 1120 N[178]N[173]10
  103. 1130 [153]"EICHWERT FUER 0VOLT IST ";N
  104. 1140 [153]"BITTE TRAGENSIE DIESEN WERT IM"
  105. 1150 [153]"PROGRAMM EIN MIT:"
  106. 1160 [153]"5 N = <EICHWERT>"
  107. 1170 [153]"VERBINDEN SIE NUN DEN EINGANG"
  108. 1180 [153]"DES A/D-WANDLERS MIT 5 VOLT."
  109. 1190 [153]"DRUECKEN SIE DANN EINE TASTE."
  110. 1200 [161]A$
  111. 1210 [139]A$[178]""[167]1200
  112. 1220 BS[178]1
  113. 1230 [141]5000
  114. 1240 [129]A[178]1[164]10
  115. 1250 :  [141]5000
  116. 1260 :  FA[178]FA[170]FZ
  117. 1270 [130]A
  118. 1280 FA[178]FA[173]10
  119. 1290 [153]"DIE STEIGUNG BETRAEGT ";FA[173]5
  120. 1300 [153]"TRAGEN SIE DIESEN WERT IM"
  121. 1310 [153]"PROGRAMM EIN MIT:"
  122. 1320 [153]"6 FA = <STEIGUNG>"
  123. 1330 [153]"DANACH MUSS DAS PROGRAMM UNBEDINGT"
  124. 1340 [153]"UNTER DEM NAMEN MAIN V1.2E"
  125. 1350 [153]"AUF DISK GESPEICHERT WERDEN!"
  126. 1360 [128]
  127. 5000 [143] ************************************
  128. 5010 [143] * ANALOGMESSROUTINE                *
  129. 5020 [143] * UEBERGABEWERT: ANALOGMODUL-      *
  130. 5030 [143] * NUMMER IN VARIABLE BS            *
  131. 5040 [143] * EICHWERTE FUER NULLPUNKT IN      *
  132. 5050 [143] * N, FUER STEIGUNG IN FA           *
  133. 5060 [143] ************************************
  134. 5070 [151]56579,[194](56579)[176] 224
  135. 5080 [151] 56577,M[172]32                   :[143] ANALOGPORT WAEHLEN
  136. 5090 [158] 53100                          :[143] TIMING NUR IN MASCH.
  137. 5100 FZ [178] (255[171][194](56580))[170](255[171][194](56581))[172]256
  138. 5110 U [178] (FZ [171] NU) [173] FA                  :[143] EICHUNG
  139. 5120 [142]
  140. 10000 [143] ************************************
  141. 10010 [143] * TEMPERATURMODUL                  *
  142. 10020 [143] * UEBERGABE: ANALOGPORTNUMMER IN BS*
  143. 10030 [143] ************************************
  144. 10035 NT[178]2224.400:NS[178]23.5700
  145. 10036 [151]56579,[194](56579)[176]224
  146. 10037 [151]56577,M[172]32
  147. 10040 [129]TE[178]1[164]1000
  148. 10050 [130]
  149. 10060 [141] 5000
  150. 10100 AN [178][181](((FZ[171]NT)[173]NS)[172]10[170].5)[173]10
  151. 10109 [139]AN[177][178]100[167]AN[178]99.99
  152. 10110 [142]
  153. 11000 [143] ************************************
  154. 11010 [143] * DRUCKMODUL                       *
  155. 11020 [143] * UEBERGABE: ANALOGPORTNUMMER IN BS*
  156. 11030 [143] ************************************
  157. 11040 NT[178]0000.000:NS[178]2.10970464
  158. 11050 [151]56579,[194](56579)[176]224
  159. 11060 [151]56577,M[172]32
  160. 11070 [129]TE[178]1[164]1000
  161. 11080 [130]
  162. 11090 [141] 5000
  163. 11100 AN [178] [181]((FZ[171]NT)[173]NS)
  164. 11110 [139]TL[178]0[167]TL[178]FZ
  165. 11120 [139]AN[177][178]10000[167]AN[178]9999
  166. 11130 [139]DM[179][177]3[167]11220
  167. 11140 TM[178]TM[173]DM
  168. 11150 [153]""[166]S%(BS))" CMD CMD "
  169. 11160 [153][166]S%(BS))
  170. 11170 [139]TM[177]TL[170].3[167][153]"+"
  171. 11180 [139]TM[179]TL[171].3[167][153]"-"
  172. 11190 [139]TM[179][178]TL[170].3[175]TM[177][178]TL[171].3[167][153]"="
  173. 11200 TL[178]TM
  174. 11210 TM[178]0
  175. 11220 DM[178]DM[170]1
  176. 11230 [139]DM[178]90[167]DM[178]0
  177. 11240 TM[178]TM[170]FZ
  178. 11250 [142]
  179. 12000 [143] ************************************
  180. 12010 [143] * REGENMODUL                       *
  181. 12020 [143] * UEBERGABE: ANALOGPORTNUMMER IN BS*
  182. 12030 [143] ************************************
  183. 12040 RW[178]0
  184. 12050 NT[178]28.000:NS[178]0.946405
  185. 12060 [151]56579,[194](56579)[176]224
  186. 12070 [151]56577,M[172]32
  187. 12080 [139] RE[178]1[167]RE[178]0:[141]12170
  188. 12090 [129]TE[178]1[164]1000
  189. 12100 [130]
  190. 12110 [141] 5000
  191. 12120 AN [178][181]((FZ[171]NT)[173]NS)
  192. 12130 [139]AN[179]0[167]AN[178]0
  193. 12140 RM[178]AN
  194. 12150 [139]AN[177][178]10000[167]AN[178]9999
  195. 12160 [142]
  196. 12170 [143] *************************************
  197. 12180 [143] * REGENMESSERRESET                  *
  198. 12190 [143] *************************************
  199. 12200 [151]56579,16
  200. 12210 [151]56577,[194](56577)[175][168]16
  201. 12220 [151]56577,[194](56577)[176]16
  202. 12230 [151]56579,0
  203. 12240 [153]"TAGESREGENMENGE: "RM
  204. 12250 [129]IX[178]1[164]2000:[130]
  205. 12260 [142]
  206. 13000 [143] ************************************
  207. 13010 [143] * FEUCHTEMODUL                     *
  208. 13020 [143] * UEBERGABE: ANALOGPORTNUMMER IN BS*
  209. 13030 [143] ************************************
  210. 13040 NT[178]17803.166666:NS[178]65.79166666
  211. 13050 SW[178][194](56576):[151]56576,[194](56576)[175][168]4
  212. 13060 [158]53000
  213. 13070 [151]56576,SW
  214. 13080 FZ [178] (255[171][194](56324))[170](255[171][194](56325))[172]256
  215. 13090 AN [178][181]((NT[171]FZ)[173]NS)
  216. 13100 [139]AN[177][178]10000[167]AN[178]9999
  217. 13110 [142]
  218. 59000 [143] ************************************
  219. 59010 [143] *                                  *
  220. 59020 [143] * ARCHIVIERUNGSMODUL               *
  221. 59030 [143] * UEBERGABE: MODULNUMMER IN BS     *
  222. 59040 [143] *            FILENAME IN N$(BS)    *
  223. 59050 [143] *            MESSWERT IN AN        *
  224. 59060 [143] *            DATUM IN D$           *
  225. 59070 [143] *            ZEIT IN T$            *
  226. 59080 [143] *                                  *
  227. 59090 [143] ************************************
  228. 59100 MW(BS) [178] MW(BS) [170] AN
  229. 59110 ZE(BS) [178] ZE(BS) [170] 1
  230. 59120 [139] ZE(BS) [179] RA [167] 59310
  231. 59130 ZE(BS) [178] 0
  232. 59140 [159]2,8,2,N$(BS)[170]",L,"[170][199](16):[143] DATEILAENGE 16 BYTE
  233. 59150 [153]"DATEI"N$(BS)
  234. 59160 [152]1,"P"[170][199](2)[170][199](0)[170][199](0)[170][199](0):[143] AUF 1. BYTE POSITIONIEREN
  235. 59170 [152]1,"P"[170][199](2)[170][199](0)[170][199](0)[170][199](0):[143] ZUR SICHERHEIT ZWEIMAL
  236. 59180 [132]2,LR$:[143] ANZAHL SCHON VORHANDENER RECORDS
  237. 59190 LR [178] [197](LR$)[170]1
  238. 59200 HI [178] [181](LR[173]256)
  239. 59210 LO [178] LR[171]256[172]HI
  240. 59220 [152]1,"P"[170][199](2)[170][199](LO)[170][199](HI)[170][199](0):[143] NEUEN RECORD POSITIONIEREN
  241. 59230 [152]1,"P"[170][199](2)[170][199](LO)[170][199](HI)[170][199](0):[143] ZUR SICHERHEIT ZWEIMAL
  242. 59240 RC$[178]T$[170][200]([196](MW(BS)[173]RA),4):[143] DATENSATZ ZUSAMMENSETZEN
  243. 59250 MW(BS)[178]0
  244. 59260 [152]2,RC$:[143] RECORD SCHREIBEN
  245. 59270 [152]1,"P"[170][199](2)[170][199](0)[170][199](0)[170][199](0)
  246. 59280 [152]1,"P"[170][199](2)[170][199](0)[170][199](0)[170][199](0)
  247. 59290 [152]2,LR
  248. 59300 [160]2:[143] DATEI SCHLIESSEN
  249. 59310 [142]
  250. 60000 [153]"BITTE ZEIT EINGEBEN! (HH,MM)"
  251. 60010 [133]H$,M$
  252. 60020 H1[178][197]([200](H$,1)):H2[178][197]([201](H$,1))
  253. 60030 [139]H1[178]2[167]HH[178]144:[137]60060
  254. 60040 [139]H1[178]1[176]H1[178]0[167]HH[178]H1[172]16:[137]60060
  255. 60050 [153]"BITTE FORMAT BEACHTEN (HH,MM)":[137]60000
  256. 60060 [139]H2[177][178]0[175]H2[179][178]9[167]HH[178]HH[170]H2:[137]60080
  257. 60070 [137]60050
  258. 60080 M1[178][197]([200](M$,1)):M2[178][197]([201](M$,1))
  259. 60090 [139]M1[179]0[176]M1[177]9[176]M2[179]0[176]M2[177]9[167]60050
  260. 60100 MM[178]M1[172]16[170]M2
  261. 60110 [151]56587,HH
  262. 60120 HL[178]H1[172]10[170]H2
  263. 60130 [151]56586,MM
  264. 60140 [151]56585,0
  265. 60150 [151]56584,0:[143] UHR STARTET
  266. 60160 [142]
  267. 61000 HH[178][194](56587):[143] UHR STOPPT
  268. 61010 MM[178][194](56586)
  269. 61020 ZS[178][194](56584):[143] UHR LAEUFT WEITER
  270. 61030 H1[178][181](HH[173]16):[139]H1[178]9[167]H1[178]2
  271. 61040 H[178]H1[172]10[170](HH[175]15)
  272. 61050 [139]H[178]24[167]H[178]0
  273. 61060 [139]HL[179][177]RW [175]H[178]RW[167]RE[178]1:[143] RESETZEIT ERREICHT
  274. 61070 HL[178]H
  275. 61080 MI[178][181](MM[173]16)[172]10[170](MM[175]15)
  276. 61090 [153]"              CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD"H":"MI" UHR"
  277. 61100 T$[178][196](H)[170][196](MI)
  278. 61110 [142]
  279.